#
# Run experiments for diploma thesis (known kernels).
#

use strict;
use warnings;

my $home = 'C:\Users\ungerma\Desktop\DA\dual-process-model\dpm';

sub printRun {
  my $cmd = shift;
  print "$cmd\n";
  system($cmd) == 0 or die('Could not run cmd');
}

printRun("move $home\\pos $home\\pos1");
printRun("move $home\\neg $home\\neg1");
printRun("move $home\\test $home\\test1");

printRun("move $home\\pos2 $home\\pos");
printRun("move $home\\neg2 $home\\neg");
printRun("move $home\\test2 $home\\test");

printRun("move $home\\pos1 $home\\pos2");
printRun("move $home\\neg1 $home\\neg2");
printRun("move $home\\test1 $home\\test2");
